home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO096.dsk / KERMIT.INSTALL.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  59 lines
  1. 10  REM KERMIT 3.86 DRIVER INSTALL - LES FERCH - UBC
  2. 20 N$ = "SSSVMMACCCGSCPCA":D$ =  CHR$(4)
  3. 30  PRINT D$;"BLOAD KERMIT"
  4. 40  HOME : PRINT "SELECT DRIVER TO USE WITH KERMIT": PRINT 
  5. 50  PRINT "1 SUPER SERIAL CARD OR //C SERIAL PORT"
  6. 60  PRINT "2 MICROTEK SV-622 CARD"
  7. 70  PRINT "3 MICROMODEM II MODEM CARD"
  8. 80  PRINT "4 APPLE COMM CARD"
  9. 90  PRINT "5 CCS 7710 COMM CARD"
  10. 100  PRINT "6 APPLE IIGS SERIAL PORT"
  11. 110  PRINT "7 MOUNTAIN HARDWARE CPS CARD"
  12. 120  PRINT "8 APPLE CAT COMM CARD"
  13. 130  PRINT : GOSUB 340
  14. 140  RESTORE : IF S >1  THEN  FOR I = 1 TO (S -1) *22: READ A: NEXT 
  15. 150 DN$ = "KERMIT." + MID$ (N$,(S *2 -1),2)
  16. 160  GOSUB 390: PRINT D$;"BLOAD";DN$
  17. 170  PRINT : PRINT "YOU HAVE SELECTED DRIVER NUMBER "; CHR$(S +48)
  18. 180  PRINT : PRINT "PRESS RETURN TO ACCEPT OR ESC TO CHANGE";
  19. 190  GET R$: PRINT :S =  ASC(R$)
  20. 200  IF (S < >13)  AND (S < >27)  THEN 190
  21. 210  IF S = 27  THEN  VTAB 10: CALL  -958: GOTO 130
  22. 220  PRINT D$;"BSAVE KERMIT,A$1000,L$7000": GOTO 230
  23. 230  PRINT : PRINT "KERMIT DRIVER INSTALL DONE"
  24. 240  PRINT : PRINT "RUN KERMIT.SETUP NOW? Y"; CHR$(8);
  25. 250  GOSUB 280: IF R  THEN  PRINT D$;"RUN KERMIT.SETUP"
  26. 260  GOTO 580
  27. 270  PRINT : PRINT "KERMIT DRIVER INSTALL ABORTED": GOTO 240
  28. 280  GET R$:S =  ASC(R$):R = (S = 89)  OR (S = 121)  OR (S = 13)
  29. 290 W = (S = 78)  OR (S = 110):E = (S = 27)
  30. 300  IF   NOT (R  OR W  OR E)  THEN 280
  31. 310  PRINT R$: IF S < >13  THEN  PRINT 
  32. 320  IF E  THEN 580
  33. 330  RETURN 
  34. 340  PRINT "WHICH DRIVER? (1 - 8) ";
  35. 350  GET R$:S =  ASC(R$) -48:E = (S =  -21)
  36. 360  IF   NOT E  AND (S <1  OR S >8)  THEN 350
  37. 370  PRINT R$: PRINT : IF E  THEN 270
  38. 380  RETURN 
  39. 390  FOR I = 4101 TO 4102: READ A: POKE I,A: NEXT 
  40. 400  FOR I = 4108 TO 4109: READ A: POKE I,A: NEXT 
  41. 410  FOR I = 4128 TO 4145: READ A: POKE I,A: NEXT : RETURN 
  42. 420  DATA 9,123,253,135,76,237,123,76,105,125,76
  43. 430  DATA 238,124,76,255,124,76,26,125,76,49,125
  44. 440  DATA 5,123,153,126,76,83,123,76,66,124,76
  45. 450  DATA 157,123,76,253,123,76,7,124,76,51,124
  46. 460  DATA 7,123,249,127,76,158,123,76,164,125,76
  47. 470  DATA 5,125,76,101,125,76,111,125,76,155,125
  48. 480  DATA 8,123,11,127,76,134,123,76,187,124,76
  49. 490  DATA 40,124,76,136,124,76,146,124,76,186,124
  50. 500  DATA 10,123,216,135,76,31,124,76,102,125,76
  51. 510  DATA 11,125,76,28,125,76,55,125,76,72,125
  52. 520  DATA 0,123,163,125,76,8,124,76,97,125,76,189
  53. 530  DATA 124,76,7,125,76,11,125,76,55,125
  54. 540  DATA 5,123,63,127,76,120,123,76,127,124,76
  55. 550  DATA 232,123,76,67,124,76,77,124,76,121,124
  56. 560  DATA  24,123,251,135,76,207,123,76,6,127,76 
  57. 570  DATA  39,126,76,68,126,76,098,126,76,184,126 
  58. 580  IF  PEEK(43624) = 1  OR  PEEK(43624) = 2  THEN  END 
  59. 590  PRINT D$;"BYE"